EnigmA Amiga Run 1997 April/EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso/EARCD/gfx/conv/MetaView.lha/MetaView/MetaView.bak

Text File | 1996-11-11 | 5KB | 190 lines

;$VER: MetaView Install 1.3 (26.09.1996)
;Copyright ©1996 Henk Jonas

(set @app-name "MetaView V1.3")
(set @sourcedir (pathonly @icon))
(set #wbversion (getversion "libs:version.library"))
(set #wbversion (/ #wbversion 65536))

(if (< #wbversion 37)
  (abort "\n\nAmigaDOS 2.0 or better is needed this software.")
)

(message "Henk Jonas\npresent:\n\nMetaView\n\nThis programm show and convert gfx-metafiles,\nuse the amigametaformat.library\nand is Public Domain.")
(set user-level @user-level)
(user 2)
(set @parentdir
  (askdir
    (prompt "Please choice the destination for MetaView.\nI will create a drawer with name MetaView there.")
    (help @askdir-help)
    (default "RAM:")
    (disk)
  )
)
(user user-level)

(set @default-dest (tackon @parentdir "MetaView"))

(makedir @default-dest
  (prompt "Die Schublade 'MetaView' wird erzeugt.")
  (help @makedir-help)
  (infos)
)

(complete 5)

(copylib
  (prompt "Now i install the 'amigametaformat.library'.")
  (source (tackon @sourcedir "libs/amigametaformat.library"))
  (dest  "libs:")
  (optional "nofail" "force" "askuser")
  (help "This library are needed for this programm.\nIt is very importent to install this!")
)

(complete 15)

(set driver
  (askoptions
    (prompt "Now i install the different Outputdrivers for the 'amigametaformat.library'.")
    (choices "Window" "Region" "AMF" "CGM" "EPS" "GEM" "WordWorth")
    (help "the options:\n"
          "* Window    : are for output in windows, it`s very importent.\n"
          "* Region    : are for all other drawingoutput like printer or IFF-ILBM files,it`s also very importent.\n"
          "* AMF       : are for output as Amiga Metafile Format.\n"
          "* CGM       : are for output as Computer Graphics Metafile.\n"
          "* EPS       : are for output as Encapsulated PostScript.\n"
          "* GEM       : are for output as GEM Metafile.\n"
          "* WordWorth : create ARexx scripts, for use in WordWorth.\n")
  )
)

(complete 20)

(makedir "libs:AMF")

(if (IN driver 0)
  (copylib
    (prompt "Now i install the windowdriver for 'amigametaformat.library'.")
    (source (tackon @sourcedir "libs/AMF/amigametaformat-window.driver"))
    (dest  "libs:AMF/")
    (optional "nofail" "force" "askuser")
    (help "windowdriver for drawing in windows\n")
  )
)

(complete 25)

(if (IN driver 1)
  (copylib
    (prompt "Now i install the regiondriver for 'amigametaformat.library'.")
    (source (tackon @sourcedir "libs/AMF/amigametaformat-region.driver"))
    (dest  "libs:AMF/")
    (optional "nofail" "force" "askuser")
    (help "regiondriver for printing and saving as ILBM files\n")
  )
)

(complete 30)

(if (IN driver 2)
  (copylib
    (prompt "Now i install the filedriver for 'amigametaformat.library'.")
    (source (tackon @sourcedir "libs/AMF/amigametaformat-file.driver"))
    (dest  "libs:AMF/")
    (optional "nofail" "force" "askuser")
    (help "file for saving as Amiga Meta Format Metafile\n")
  )
)

(complete 35)

(if (IN driver 3)
  (copylib
    (prompt "Now i install the CGMdriver for 'amigametaformat.library'.")
    (source (tackon @sourcedir "libs/AMF/amigametaformat-cgm.driver"))
    (dest  "libs:AMF/")
    (optional "nofail" "force" "askuser")
    (help "CGM for saving as Computer Graphics Metafile\n")
  )
)

(complete 40)

(if (IN driver 4)
  (copylib
    (prompt "Now i install the EPSdriver for 'amigametaformat.library'.")
    (source (tackon @sourcedir "libs/AMF/amigametaformat-eps.driver"))
    (dest  "libs:AMF/")
    (optional "nofail" "force" "askuser")
    (help "EPS for saving as Encapsulated PostScript\n")
  )
)

(complete 45)

(if (IN driver 5)
  (copylib
    (prompt "Now i install the GEMdriver for 'amigametaformat.library'.")
    (source (tackon @sourcedir "libs/AMF/amigametaformat-gem.driver"))
    (dest  "libs:AMF/")
    (optional "nofail" "force" "askuser")
    (help "GEM for saving as GEM Metafile\n")
  )
)

(complete 50)

(if (IN driver 6)
  (copylib
    (prompt "Now i install the WordWorth-ARexx-driver for 'amigametaformat.library'.")
    (source (tackon @sourcedir "libs/AMF/amigametaformat-ww.driver"))
    (dest  "libs:AMF/")
    (optional "nofail" "force" "askuser")
    (help "WordWorth-ARexx-driver for creating WordWorth-ARexx-script\n")
  )
)

(complete 55)

(copyfiles
  (prompt "copy programm")
  (source (tackon @sourcedir "MetaView"))
  (dest @default-dest)
  (infos)
  (help "Now i copy the programm.")
)

(complete 60)

(copyfiles
  (prompt "copy MetaView.readme")
  (source (tackon @sourcedir "MetaView.readme"))
  (dest @default-dest)
  (infos)
  (help "Now i copy the MetaView.readme.")
)

(complete 65)

(copyfiles
  (prompt "copy amigametaformat.readme")
  (source (tackon @sourcedir "libs/amigametaformat.readme"))
  (dest @default-dest)
  (infos)
  (help "Now i copy the amigametformat.readme.")
)

(complete 70)

(copyfiles
  (prompt "copy examples")
  (source (tackon @sourcedir "examples"))
  (dest (tackon @default-dest "examples"))
  (files)
  (all)
  (infos)
  (help "Now i copy some examples.")
)
(complete 100)